00100	TOOT 0 12;
00200	P2 .2;
00300	P3 MOVE/6 C3 B7/6 B7 C3;
00400	P4 2000;
00500	P5 F1;
00600	P6 F3 SUBR;
00700	END;
00800	FUNC INVIS 0 12;
00900	P2 P2;
01000	P3 "SYNTH(F3);1 1 2";
01100	P4 .9;  % OF 2ND HARM.
01200	P5 3;   P6 .85;  P7 4;   P8 .8;
01400	P9 5;   P10 .75;  P11 6;   P12 .7;
01600	P13 7;   P14 .65;  P15 8;   P16 .6;
01800	P17 9;   P18 .55;  P19 10;   P20 .5;
02000	P21 11;   P22 .45;  P23 12;   P24 .4;
02200	P25 13;   P26 .35;  P27 14;   P28 .3;
02400	P29 12.8 SUBR;  SAMPLE RATE IN K.
02500	END;